Developer CD Series 2000 February: Tool Chest/Dev.CD Feb 00 TC.toast/pc/tool chest/development kits/hypercard related/xcmds & xfcns/help xfcn 1.4/helplab/cards.xml

Text File | 1993-06-13 | 26.2 KB | 704 lines

card_3607.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3607</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2576</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3125.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>396</left>
            <top>202</top>
            <right>416</right>
            <bottom>223</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6720</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUp
go to first card
end mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>2</left>
            <top>1</top>
            <right>396</right>
            <bottom>223</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name></name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text>Additional information is provided in the release notes.  The following is an exerpt:

Form is:

    put Help(command, parameter, parameter) into errorMsg

Commands and parameters are as follows:

    put Help("ShowBalloon", helpMsg, tip, optionalHotRect) into errMsg
    put Help("RemoveBalloon") into errorMsg

"ShowBalloon" displays the helpMsg at the tip location.  The helpMsg is any text string.  The tip is a HyperCard mouseLoc (two integers separated by a comma, representing horizontal and vertical pixel offsets from the top-left corner of the card.)  The balloon stays up until one of the following happens:

    The user turns Balloon Help on or off;
    A "RemoveBalloon" command is sent to the XFCN;
    The cursor leaves the optionalHotRect.;
    Another "Show..." Balloon command is sent to the XFCN; or
    Another application, such as the Finder, displays a balloon.

The optionalHotRect is an optional parameter giving a rectangle in HyperCard local coordinates (left, top, right, bottom.)  If this parameter is present, the Help Manager tracks the mouse within the rectangle and automatically removes the Balloon when the cursor leaves the rectangle.  Balloon Help must be turned ON (from the menu bar) for this feature to work.

"RemoveBalloon" removes the Balloon from the screen.  If no balloon is being shown, then no action is taken.  The XFCN does not affect the user's state of Balloon Help.

Additional commands and parameters are described in the release notes.

The XFCN also supports the use of "!" for version information and "?" for help as follows:
    put Help("!") into versionInfo
    put Help("?") into helpInfo

The following resources are required for XFCN operation:
     type         ID         Name
    XFCN     16373     Help
    STR#    16373     Help

Resource identification is by Name, ID numbers may be changed.

The following error messages may be returned from the XFCN:
        "Err 00 Missing STR# for Help"
        "Err 01 Missing command"
        "Err 02 Command is not recognized"
        "Err 03 At least three parameters are required"
        "Err 04 This operating system does not support the Help Manager"
        "Err 05 Point parameter is invalid"
        "Err 06 Rect parameter is invalid"
        "Err 07 HMShowBalloon error = "
        "Err 08 HMSetBalloons error = "
        "Err 09 HMRemoveBalloon error = "
        "Err 10 Insufficient memory"
        "Err 11 Problem storing handle in global"
        "Err 12 Balloon Help must be ON to use the hotRect"

This XFCN should run under System 7.0 and pre-7.0.  It's not very useful under pre-7.0, but it will run.  This XFCN should also run under HyperCard 2.0 and pre-2.0.
</text>
    </content>
    <name>Release Notes</name>
    <script></script>
</card>


card_3977.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3977</id>
    <filler1>0</filler1>
    <bitmap>BMAP_4483.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2576</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3125.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>81</left>
            <top>70</top>
            <right>321</right>
            <bottom>185</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Test Area</name>
        <script>--
-- Display the balloon which
-- is best for the object and
-- the current cursor location.
--
on mouseEnter
global gMsgText, gTargetRect, gTargetEntry, gTargetInset
put "See how the balloon adjusts"¬
&& "for optimal viewing of the test area." into gMsgText
put the rect of target into gTargetRect
put the mouseLoc into gTargetEntry
put cd fld "inset" into gTargetInset
put Help("ShowBalloon", gMsgText,,gTargetRect,¬
gTargetEntry,gTargetInset) into cd fld "helpResult"
Be853FreeAdv
end mouseEnter

--
-- we don't need the "mouseLeave" handler
-- because we are passing the target rect
-- to the Help Manager.
--

on Be853FreeAdv
global gMsgText, gTargetRect, gTargetEntry, gTargetInset
-- a -853 means that the Help Manager detected a
-- rapid cursor movement and, thinking that the
-- cursor was just 'passing thru', did not display
-- the balloon.  We try again until successful.
--
-- This handler is the "advanced" version of
-- the basic handler in the stack script
--
repeat until "-853" is not in cd fld "helpResult"
put Help("ShowBalloon", gMsgText,,gTargetRect,¬
gTargetEntry,gTargetInset) into cd fld "helpResult"
end repeat
end Be853FreeAdv

</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>276</top>
            <right>273</right>
            <bottom>291</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>helpResult</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>102</left>
            <top>229</top>
            <right>208</right>
            <bottom>244</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>inset</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>354</left>
            <top>239</top>
            <right>408</right>
            <bottom>287</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29114</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Return</name>
        <script>on mouseUp
go to card "Basic"
end mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>
Slide the cursor
into
this field
from
various sides and corners
</text>
    </content>
    <name>Advanced</name>
    <script></script>
</card>


card_2969.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2969</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2171.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2576</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3125.css" />
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>19</top>
            <right>393</right>
            <bottom>42</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Show Balloon</name>
        <script>on mouseUp
ShowBalloon cd fld "helpMessage", cd fld "clickLocation"
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to show"¬
&& "the 'balloon message' at the 'balloon location'."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>329</left>
            <top>205</top>
            <right>405</right>
            <bottom>222</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <name>Who Am I?</name>
        <script>on mouseUp
put Help("!") into message box
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to see"¬
&& "the version identification of the XFCN."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>13</left>
            <top>64</top>
            <right>196</right>
            <bottom>80</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>clickLocation</name>
        <script>on mouseEnter
ShowAutoBalloon "This value will be the balloon tip location"¬
&& "when you click on a 'Show....' button."¬
&& "You can set this value by clicking on the card or"¬
&& "entering it manually."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave
</script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>13</left>
            <top>101</top>
            <right>206</right>
            <bottom>168</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>helpMessage</name>
        <script>on mouseEnter
ShowAutoBalloon "This is the message that will be"¬
&& "displayed when you click on a 'Show....' button."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave
</script>
    </part>
    <part>
        <id>17</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>13</left>
            <top>187</top>
            <right>206</right>
            <bottom>214</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>helpResult</name>
        <script>on mouseEnter
ShowAutoBalloon "What?  Errors?  No way!"¬
& return & "(However, an occasional '-853' error is okay.)"
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave
</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>51</top>
            <right>393</right>
            <bottom>74</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Remove Balloon</name>
        <script>on mouseUp
RemoveBalloon
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to remove"¬
&& "a balloon."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>329</left>
            <top>183</top>
            <right>405</right>
            <bottom>200</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <name>What Am I?</name>
        <script>on mouseUp
go to card "Release Notes"
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to see"¬
&& "more information about this XFCN."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>124</top>
            <right>393</right>
            <bottom>147</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Show Using hotRect</name>
        <script>on mouseUp
-- we pass the button rectangle for the hotRect.
-- The XFCN will convert it to Global coordinates
-- in QuickDraw form.
put the rect of target into hotRect
ShowBalloonWithHotRect cd fld "helpMessage",¬
the clickLoc, hotRect
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to show the balloon."¬
&& "The balloon will automatically go away"¬
&& "when you leave the hotRect (this button.)"
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>247</left>
            <top>192</top>
            <right>306</right>
            <bottom>209</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>globalValue</name>
        <script>on mouseUp
global HelpXfcnGlobal
put empty into me -- flash
put HelpXfcnGlobal into me
end mouseUp

on mouseEnter
ShowAutoBalloon "This field displays the value of"¬
&& "a handle to the alternativeRect (hotRect)"¬
&& "used by HMShowBalloon.  It's only useful"¬
&& "for John's debugging. Click to update."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>26</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>60</left>
            <top>10</top>
            <right>161</right>
            <bottom>46</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Auto-Show</name>
        <script>on mouseUp
set the hilite of me to not the hilite of me
giveHelpMessage -- toggles to new help message
end mouseUp

on mouseEnter
giveHelpMessage
end mouseEnter

on giveHelpMessage
-- you always get a balloon with this button
if not the hilite of cd btn "Auto-Show" then
put "Set Auto-Show to display balloons automatically."¬
&& "Balloons will display for all card objects,"¬
&& "when you click on the card, and when you click"¬
&& "on a 'Show....' button."¬
into helpMessage
else
put "Turn this off to quiet automatic balloons display."¬
&& "The 'Show....' buttons will still work."¬
into helpMessage
end if
ShowBalloon helpMessage, prettyTip()
end giveHelpMessage

on mouseLeave
RemoveBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>12</left>
            <top>251</top>
            <right>170</right>
            <bottom>274</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Turn Balloons On</name>
        <script>on mouseUp
TurnOn
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to turn"¬
&& "Balloons on."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>183</left>
            <top>251</top>
            <right>341</right>
            <bottom>274</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Turn Balloons Off</name>
        <script>on mouseUp
TurnOff
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to turn"¬
&& "Balloons off."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>355</left>
            <top>239</top>
            <right>408</right>
            <bottom>287</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26425</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>More</name>
        <script>on mouseUp
go to card "Advanced"
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to"¬
&& "see the advanced features."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>235</left>
            <top>152</top>
            <right>393</right>
            <bottom>175</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Show Using STR# Text</name>
        <script>-- This button demonstrates how to display balloons
-- using text in STR# resources.  This is a new feature
-- available in version 1.3d1 and newer.
--
-- The first parameter is the "ShowBalloonRes" command.
-- The second parameter is the name of the STR# resource.
-- The third parameter is the index of the string in the STR# resource.  The
-- The remaining parameters are the same as the other ShowBalloon
-- parameters (tip, hotRect, etc.)
--
on mouseUp
put the loc of target into tip
put 1 into index
repeat
put Help("ShowBalloonRes", "myBalloonRes", index, tip)¬
into cd fld "helpResult"
if  "-853" is not in cd fld "helpResult" then exit repeat
end repeat
end mouseUp

on mouseEnter
ShowAutoBalloon "Click to show balloon text "¬
&& "which has been stored in a STR# resource."
end mouseEnter

on mouseLeave
RemoveAutoBalloon
end mouseLeave

</script>
    </part>
    <content>
        <layer>card</layer>
        <id>15</id>
        <text>210,81</text>
    </content>
    <content>
        <layer>card</layer>
        <id>16</id>
        <text>This is an example of a balloon message.
</text>
    </content>
    <content>
        <layer>card</layer>
        <id>25</id>
        <text>01774C0C</text>
    </content>
    <name>Basic</name>
    <script>on mouseUp
put the mouseLoc into cd fld "clickLocation"
if the hilite of cd btn "Auto-Show" then
put cd fld "helpMessage" into helpMessage
put the mouseLoc into tip
put Help("ShowBalloon", helpMessage, tip)¬
into cd fld "helpResult"
end if
end mouseUp

</script>
</card>